home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / MNBRAK.DEM < prev    next >
Text File  |  1991-05-01  |  522b  |  27 lines

  1. PROGRAM d10r1(input,output);
  2. (* driver for routine MNBRAK *)
  3. VAR
  4.    ax,bx,cx,fa,fb,fc : real;
  5.    i : integer;
  6.  
  7. (*$I MODFILE.PAS *)
  8. (*$I BESSJ0.PAS *)
  9.  
  10. FUNCTION func(x: real): real;
  11. BEGIN
  12.    func := bessj0(x)
  13. END;
  14.  
  15. (*$I MNBRAK.PAS *)
  16.  
  17. BEGIN
  18.    FOR i := 1 to 10 DO BEGIN
  19.       ax := i*0.5;
  20.       bx := (i+1.0)*0.5;
  21.       mnbrak(ax,bx,cx,fa,fb,fc);
  22.       writeln('a':14,'b':12,'c':12);
  23.       writeln('x':3,'  ',ax:12:6,bx:12:6,cx:12:6);
  24.       writeln('f':3,'  ',fa:12:6,fb:12:6,fc:12:6)
  25.    END
  26. END.
  27.